home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok44 / m2ced / txt / config.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  61 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    Config.def
  4.     :Contents.   Configuration of M2CED
  5.     :Author.     Steffen Reith
  6.     :Address.    Hessenstr. 64, D-8700 Würzburg
  7.     :Copyright.  Shareware
  8.     :Language.   Modula-2
  9.     :Translator. M2Amiga A+L V3.2d
  10.     :Imports.    req
  11.     :History.    V1.0 18.June 1990
  12.  
  13. **********************************************************************)
  14.  
  15. DEFINITION MODULE Config;
  16.  
  17. FROM req IMPORT PathType;
  18.  
  19. CONST MaxWS=31;
  20.       MaxCM=63;
  21.       ConfigFile='S:M2CED.config';
  22.  
  23.       WindowDefault='CON:0/11/500/100/';
  24.       ContMsgDefault='Press ALT Return to continue';
  25.  
  26.       compileDefault=51;
  27.       linkDefault=40;
  28.       startDefault=33;
  29.       loadDefault=18;
  30.       findErrorDefault=23;
  31.       cancelDefault=69;
  32.       continueDefault=68;
  33.  
  34. TYPE WindowString=ARRAY[0..MaxWS] OF CHAR;
  35.      ContMsgString=ARRAY[0..MaxCM] OF CHAR;
  36.  
  37.      P=RECORD
  38.         Window:WindowString;
  39.         ContMsg:ContMsgString;
  40.         compileN,linkN,startN:CARDINAL;
  41.         loadN,findErrorN,cancelN,continueN:CARDINAL;
  42.        END;
  43.  
  44. VAR Para:P;
  45.  
  46.  
  47. PROCEDURE WriteFile(VAR File:PathType);
  48. (*:Input.     Name of current file 
  49.   :Semantic.  Saves the name for later restart
  50.   :Note.      Creates a file:  s:M2CED.restart
  51. *)
  52.  
  53. PROCEDURE ReadFile (VAR File:PathType);
  54. (*:Output.    Name of a file to be loaded
  55.   :Semantic.  Gives you the name of a file
  56.   :Notes.     Read from s:M2CED.restart
  57.   :Notes.     See WriteFile 
  58. *)
  59.  
  60. END Config.
  61.